(grep): Bind compilation-disable-input to t.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index d6387d39017709be1b0ce23bc215d5a60207ac2e..5c3ce5ec34c5574357d585846d2fa3474daff90c 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -517,7 +517,8 @@ temporarily highlight in visited source lines."
 
   ;; Setting process-setup-function makes exit-message-function work
   ;; even when async processes aren't supported.
-  (let ((compilation-process-setup-function 'grep-process-setup))
+  (let ((compilation-process-setup-function 'grep-process-setup)
+       (compilation-disable-input t))
     (compilation-start (if (and grep-use-null-device null-device)
                           (concat command-args " " null-device)
                         command-args)